home *** CD-ROM | disk | FTP | other *** search
- 'TOA.BAS
- 'this program calculates the optimum angle of take-off and arrival
- 'for meteor-burst communications between two sites. The height of
- 'the reflecting meteor trails is taken as 100 kilometers.
- 'Reflections are assumed to occur at mid-path, which results in
- 'the angle of take-off equalling the angle of arrival.
- '
- 'Program last revised: May 23, 1990
-
- GOSUB TITLE
-
-
- MENU:
- CLS
- PRINT "╔═══════════════════════════════════════════════════════════════╗"
- PRINT "║ ANGLE OF TAKE OFF AND ARRIVAL - MODULE 5 ║"
- PRINT "╚═══════════════════════════════════════════════════════════════╝"
-
-
-
- PRINT
- PRINT
- PRINT "CHOOSE:"
- PRINT
- PRINT " 1. ENGLISH MEASURE - STATUTE MILES"
- PRINT " 2. METRIC MEASURE - KILOMETERS"
- PRINT
- INPUT " ENTER CHOICE 1 OR 2: "; U%
-
- IF U% = 1 GOTO ENTERENGLISH
-
- PRINT
- PRINT
- INPUT "ENTER DISTANCE BETWEEN SITE A AND SITE B (KILOMETERS): "; D#
- GOTO CALCA
-
-
- ENTERENGLISH:
-
- PRINT
- PRINT
- INPUT "ENTER DISTANCE BETWEEN SITE A AND SITE B (MILES): "; D#
-
- D# = 1.609344 * D#'convert miles to kilometers
-
- GOTO CALCA
-
-
- CALCA:
-
- 'main calculation routine
-
- R = 6370 'nominal earth radius in km.
- PI = 4 * ATN(1)
- H = 100 'nominal height of reflection in km.
- ANGLEA# = .5 * D# / R
- BPLUSC = PI - ANGLEA#
- B = R + H
- C = R
- BMINUSC = 2 * ATN(((B - C) / (B + C)) * TAN(.5 * (PI - ANGLEA#)))
- ANGLEB# = .5 * (BPLUSC + BMINUSC)
- TOA# = ANGLEB# - PI / 2
- TOA# = TOA# * (180 / PI)
-
-
- RESULT:
-
- PRINT
- PRINT
- PRINT "OPTIMUM ANGLE OF TAKE-OFF AND ARRIVAL FOR MID-PATH"
- PRINT "REFLECTION POINT AT 100 km ALTITUDE:"
- PRINT
-
- IF ABS(TOA#) < 0 THEN PRINT "GOTO FAR"
-
- PRINT USING " ##.# DEGREES"; TOA#
- PRINT
- IF TOA# < 0 THEN GOSUB TOOFAR
-
-
- PRINT "CHOOSE:"
- PRINT
- PRINT " 1. CONTINUE WITH NEW CALCULATION"
- PRINT " 2. QUIT"
- PRINT " ENTER CHOICE 1 OR 2: ";
- INPUT ANS%
- IF ANS% = 1 THEN GOTO MENU ELSE GOTO ENDING
-
-
- TOOFAR:
-
- PRINT "** NEGATIVE ELEVATION ANGLE INDICATES DISTANCE BEYOND RANGE **"
- PRINT
-
- RETURN
-
-
- ENDING:
- PRINT
- PRINT " ≡≡≡ PROGRAM COMPLETED ≡≡≡"
- END
-
-
-
- TITLE:
- 'opening screen for meteor burst programs
- CLS
-
- LOCATE 5, 25
- PRINT "Supplemental Computer Programs"
- LOCATE 6, 38
- PRINT "to"
- LOCATE 7, 27
- PRINT "METEOR BURST COMMUNICATION"
- LOCATE 9, 38
- PRINT "by"
- LOCATE 10, 31
- PRINT "Jacob Z. Schanker"
- LOCATE 14, 24
- PRINT "COPYRIGHT 1990 ARTECH HOUSE, INC."
- LOCATE 22, 25
- PRINT "<< Press any key to continue >>"
- WHILE INKEY$ = ""
- WEND
- CLS
- RETURN
-
-